home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Language.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  6.5 KB  |  156 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Friday, October 20, 1989 at 1:00 PM
  5.     Language.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.     Copyright Apple Computer, Inc.    1986-1990
  9.     All rights reserved
  10.  
  11. }
  12.  
  13.  
  14. {$IFC UNDEFINED UsingIncludes}
  15. {$SETC UsingIncludes := 0}
  16. {$ENDC}
  17.  
  18.  
  19.     UNIT Language;
  20.     INTERFACE
  21.  
  22.  
  23.  
  24.  
  25.  
  26. CONST
  27.  
  28. { Language Codes }                                                        {updated comments <2>}
  29.  
  30. langEnglish = 0;        { smRoman script }
  31. langFrench = 1;            { smRoman script }
  32. langGerman = 2;            { smRoman script }
  33. langItalian = 3;        { smRoman script }
  34. langDutch = 4;            { smRoman script }
  35. langSwedish = 5;        { smRoman script }
  36. langSpanish = 6;        { smRoman script }
  37. langDanish = 7;            { smRoman script }
  38. langPortuguese = 8;        { smRoman script }                                {<x3>}
  39. langNorwegian = 9;        { smRoman script }
  40. langHebrew = 10;        { smHebrew script }
  41. langJapanese = 11;        { smJapanese script }
  42. langArabic = 12;        { smArabic script }
  43. langFinnish = 13;        { smRoman script }
  44. langGreek = 14;            { smGreek script }
  45. langIcelandic = 15;        { extended Roman script }
  46. langMaltese = 16;        { extended Roman script }                        {<x3>}
  47. langTurkish = 17;        { extended Roman script }
  48. langCroatian = 18;        { Serbo-Croatian in extended Roman script }        {<x20>}
  49. langTradChinese = 19;    { Chinese in traditional characters }            {<x15>}
  50. langUrdu = 20;            { smArabic script }
  51. langHindi = 21;            { smDevanagari script }
  52. langThai = 22;            { smThai script }
  53. langKorean = 23;        { smKorean script }                                {<x1.7>}
  54. langLithuanian = 24;    { smEastEurRoman script }                        {<x3>}
  55. langPolish = 25;        { smEastEurRoman script }                        {<x3>}
  56. langHungarian = 26;        { smEastEurRoman script }                        {<x3>}
  57. langEstonian = 27;        { smEastEurRoman script }                        {<x3>}
  58. langLettish = 28;        { smEastEurRoman script }                        {<x3>}
  59. langLatvian = 28;        { Synonym for langLettish }                        {<x20>}
  60. langLapponian = 29;        { extended Roman script }                        {<x3>}
  61. langLappish = 29;        { Synonym for langLapponian }                    {<x20>}
  62. langFaeroese = 30;        { smRoman script }                                {<x3>}
  63. langFarsi = 31;            { smArabic script }                                {<x3>}
  64. langPersian = 31;        { Synonym for langFarsi }                        {<x20>}
  65. langRussian = 32;        { smCyrillic script }                            {<x3>}
  66. langSimpChinese = 33;    { Chinese in simplified characters }            {<x15>}
  67. langFlemish = 34;        { smRoman script }                                {<1>}
  68. langIrish = 35;            { smRoman script }                                {<1>}
  69. langAlbanian = 36;        { smRoman script }                                {<1>}
  70. langRomanian = 37;        { smEastEurRoman script }                        {<1>}
  71. langCzech = 38;            { smEastEurRoman script }                        {<1>}
  72. langSlovak = 39;        { smEastEurRoman script }                        {<1>}
  73. langSlovenian = 40;        { smEastEurRoman script }                        {<1>}
  74. langYiddish = 41;        { smHebrew script }                                {<1>}
  75. langSerbian = 42;        { Serbo-Croatian in smCyrillic script }            {<1>}
  76. langMacedonian = 43;    { smCyrillic script }                            {<1>}
  77. langBulgarian = 44;        { smCyrillic script }                            {<1>}
  78. langUkrainian = 45;        { smCyrillic script }                            {<1>}
  79. langByelorussian = 46;    { smCyrillic script }                            {<1>}
  80. langUzbek = 47;            { smCyrillic script }                            {<1>}
  81. langKazakh = 48;        { smCyrillic script }                            {<1>}
  82. langAzerbaijani = 49;    { Azerbaijani in smCyrillic script (USSR) }        {<1>}
  83. langAzerbaijanAr = 50;    { Azerbaijani in smArabic script (Iran) }        {<1>}
  84. langArmenian = 51;        { smArmenian script }                            {<1>}
  85. langGeorgian = 52;        { smGeorgian script }                            {<1>}
  86. langMoldavian = 53;        { smCyrillic script }                            {<1>}
  87. langKirghiz = 54;        { smCyrillic script }                            {<1>}
  88. langTajiki = 55;        { smCyrillic script }                            {<1>}
  89. langTurkmen = 56;        { smCyrillic script }                            {<1>}
  90. langMongolian = 57;        { Mongolian in smMongolian script }                {<1>}
  91. langMongolianCyr = 58;    { Mongolian in smCyrillic script }                {<1>}
  92. langPashto = 59;        { smArabic script }                                {<1>}
  93. langKurdish = 60;        { smArabic script }                                {<1>}
  94. langKashmiri = 61;        { smArabic script }                                {<1>}
  95. langSindhi = 62;        { smExtArabic script }                            {<1>}
  96. langTibetan = 63;        { smTibetan script }                            {<1>}
  97. langNepali = 64;        { smDevanagari script }                            {<1>}
  98. langSanskrit = 65;        { smDevanagari script }                            {<1>}
  99. langMarathi = 66;        { smDevanagari script }                            {<1>}
  100. langBengali = 67;        { smBengali script }                            {<1>}
  101. langAssamese = 68;        { smBengali script }                            {<1>}
  102. langGujarati = 69;        { smGujarati script }                            {<1>}
  103. langPunjabi = 70;        { smGurmukhi script }                            {<1>}
  104. langOriya = 71;            { smOriya script }                                {<1>}
  105. langMalayalam = 72;        { smMalayalam script }                            {<1>}
  106. langKannada = 73;        { smKannada script }                            {<1>}
  107. langTamil = 74;            { smTamil script }                                {<1>}
  108. langTelugu = 75;        { smTelugu script }                                {<1>}
  109. langSinhalese = 76;        { smSinhalese script }                            {<1>}
  110. langBurmese = 77;        { smBurmese script }                            {<1>}
  111. langKhmer = 78;            { smKhmer script }                                {<1>}
  112. langLao = 79;            { smLaotian script }                            {<1>}
  113. langVietnamese = 80;    { smVietnamese script }                            {<1>}
  114. langIndonesian = 81;    { smRoman script }                                {<1>}
  115. langTagalog = 82;        { smRoman script }                                {<1>}
  116. langMalayRoman = 83;    { Malay in smRoman script }                        {<1>}
  117. langMalayArabic = 84;    { Malay in smArabic script }                    {<1>}
  118. langAmharic = 85;        { smEthiopic script }                            {<1>}
  119. langTigrinya = 86;        { smEthiopic script }                            {<1>}
  120. langGalla = 87;            { smEthiopic script }                            {<1>}
  121. langOromo = 87;            { Synonym for langGalla }                        {<1>}
  122. langSomali = 88;        { smRoman script }                                {<1>}
  123. langSwahili = 89;        { smRoman script }                                {<1>}
  124. langRuanda = 90;        { smRoman script }                                {<1>}
  125. langRundi = 91;            { smRoman script }                                {<1>}
  126. langChewa = 92;            { smRoman script }                                {<1>}
  127. langMalagasy = 93;        { smRoman script }                                {<1>}
  128. langEsperanto = 94;        { extended Roman script }                        {<1>}
  129. langWelsh = 128;        { smRoman script }                                {<1>}
  130. langBasque = 129;        { smRoman script }                                {<1>}
  131. langCatalan = 130;        { smRoman script }                                {<1>}
  132. langLatin = 131;        { smRoman script }                                {<1>}
  133. langQuechua = 132;        { smRoman script }                                {<1>}
  134. langGuarani = 133;        { smRoman script }                                {<1>}
  135. langAymara = 134;        { smRoman script }                                {<1>}
  136. langTatar = 135;        { smCyrillic script }                            {<1>}
  137. langUighur = 136;        { smArabic script }                                {<1>}
  138. langDzongkha = 137;        { (lang of Bhutan) smTibetan script }            {<1>}
  139. langJavaneseRom = 138;    { Javanese in smRoman script }                    {<1>}
  140. langSundaneseRom = 139;    { Sundanese in smRoman script }                    {<1>}
  141.  
  142. {obsolete names, kept for backward compatibility}                {moved here <2>}
  143.  
  144. langPortugese = 8;        { old misspelled version, kept for compatibility }
  145. langMalta = 16;            { old misspelled version, kept for compatibility }
  146. langYugoslavian = 18;    { (use langCroatian, langSerbian, etc.) }        {<x20>}
  147. langChinese = 19;        { (use langTradChinese or langSimpChinese) }    {<x15>}
  148.  
  149.     { UsingLanguage }
  150.  
  151.  
  152.     IMPLEMENTATION
  153. END.
  154.  
  155.  
  156.